home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok87 / statistik / dostat.mod < prev    next >
Text File  |  1993-11-04  |  3KB  |  63 lines
  1. (*------------------------------------------------------------------------------
  2.      :Program.    DoStat.mod
  3.      :Contents.   Wertet x/y Daten aus
  4.      :Author.     Matthias Scherrer
  5.      :Address.    Baselstrasse 63, CH-4242 Laufen
  6.      :Phone.      ++(0)61/7613975
  7.      :Copyright.  PD
  8.      :Language.   Oberon
  9.      :Translator. Oberon V3.00d
  10.      :Imports.    Statistik.mod, ReadDat.mod
  11.      :History.    V1.0,01-Dec-92  fuer Oberon 2.14d
  12.      :History.    V1.1,29-Dec-92  angepasst an Oberon V3.00d
  13. ------------------------------------------------------------------------------*)
  14. MODULE DoStat;
  15.  
  16. IMPORT stat : Statistik, rd : ReadDat, arg : Arguments, io,
  17.        lrio : LongRealInOut;
  18.  
  19. CONST
  20.    Usage = "DoStat by Matthias Scherrer\n\nUsage: DoStat filename\n\n";
  21.  
  22. VAR   p        : INTEGER;
  23.       filename : ARRAY 150 OF CHAR;
  24.       d        : ARRAY 500,2 OF LONGREAL;
  25.       s        : stat.stat;
  26.       retbo    : BOOLEAN;
  27.  
  28. BEGIN
  29.   filename:="$VER:Regression_V1.0";
  30.   p:=arg.NumArgs();
  31.   IF p=0 THEN io.WriteString(Usage); HALT(0) END;
  32.   arg.GetArg (p,filename); 
  33.   IF filename="?" THEN io.WriteString(Usage); HALT(0) END;
  34.  
  35.   s.n:=rd.ReadDatas(filename,d);
  36.   IF s.n=-1 THEN io.WriteString("File not found!\n") ELSE
  37.      stat.DoStat(s,d);
  38.     
  39.     io.WriteString("\n\nStatistik vom "); io.WriteString(filename);
  40.     io.WriteString("\n=========\n\n");
  41.     io.WriteString("\nAnzahl          : "); io.WriteInt(s.n+1,3); 
  42.     io.WriteString("\nGrösstes x      : "); retbo:=lrio.WriteReal(s.maxx,6,6,TRUE);     
  43.     io.WriteString("\nKleinstes x     : "); retbo:=lrio.WriteReal(s.minx,6,6,TRUE);     
  44.     io.WriteString("\nGrösstes y      : "); retbo:=lrio.WriteReal(s.maxy,6,6,TRUE);     
  45.     io.WriteString("\nKleinstes y     : "); retbo:=lrio.WriteReal(s.miny,6,6,TRUE);     
  46.     io.WriteString("\nSumme x         : "); retbo:=lrio.WriteReal(s.Ex,6,6,TRUE);     
  47.     io.WriteString("\nSumme y         : "); retbo:=lrio.WriteReal(s.Ey,6,6,TRUE);     
  48.     io.WriteString("\nSumme x^2       : "); retbo:=lrio.WriteReal(s.Ex2,6,6,TRUE);     
  49.     io.WriteString("\nSumme y^2       : "); retbo:=lrio.WriteReal(s.Ey2,6,6,TRUE);     
  50.     io.WriteString("\nProdukt x*y     : "); retbo:=lrio.WriteReal(s.Exy,6,6,TRUE);     
  51.     io.WriteString("\nMittelwert x    : "); retbo:=lrio.WriteReal(s.mx,6,6,TRUE);     
  52.     io.WriteString("\nMittelwert y    : "); retbo:=lrio.WriteReal(s.my,6,6,TRUE);     
  53.     io.WriteString("\nStreuung x      : "); retbo:=lrio.WriteReal(s.sx,6,6,TRUE);     
  54.     io.WriteString("\nStreuung y      : "); retbo:=lrio.WriteReal(s.sy,6,6,TRUE);     
  55.     io.WriteString("\nSteigung b      : "); retbo:=lrio.WriteReal(s.b,6,6,TRUE);     
  56.     io.WriteString("\nAchsenabschn. c : "); retbo:=lrio.WriteReal(s.c,6,6,FALSE);     
  57.     io.WriteString("\nStreuung b      : "); retbo:=lrio.WriteReal(s.sb,6,6,FALSE);     
  58.     io.WriteString("\nStreuung c      : "); retbo:=lrio.WriteReal(s.sc,6,6,FALSE);     
  59.     io.WriteString("\nKorrel.Koeff. r : "); retbo:=lrio.WriteReal(s.r,6,6,FALSE);     
  60.     io.WriteLn; io.WriteLn;
  61.   END;
  62. END DoStat.
  63.